(Fcompare_strings): Fix return values.

diff --git a/src/fns.c b/src/fns.c
index 4bd577772fdabb48d75783990fa108a8a8d67bba..ceda1cfbf41d515418f50e1b7e5d6fe1394ff22d 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -326,9 +326,9 @@ If string STR1 is greater, the value is a positive number N;\n\
         past the character that we are comparing;
         hence we don't add or subtract 1 here.  */
       if (c1 < c2)
-       return make_number (- i1);
+       return make_number (- i1 + XINT (start1));
       else
-       return make_number (i1);
+       return make_number (i1 - XINT (start1));
     }
 
   if (i1 < end1_char)